﻿Partial Public Class MyFoldersExpandersControl
    Public Event Bang(ByVal textBlockName As String)

    Public WriteOnly Property TotalInboxItems() As String

        Set(ByVal value As String)
            InboxCount.Text = value
        End Set
    End Property

    Public WriteOnly Property TotalSentItems() As String

        Set(ByVal value As String)
            SentBoxCount.Text = value
        End Set
    End Property

    Public WriteOnly Property TotalDeletedItems() As String
       
        Set(ByVal value As String)
            DeletedCount.Text = value
        End Set
    End Property

    Public Sub FireEvent(ByVal textBlockName As String)
        RaiseEvent Bang(textBlockName)
    End Sub


    Private Sub Deleted_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Deleted.MouseUp
        FireEvent("deleted")
    End Sub

    Private Sub Drafts_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
        FireEvent("drafts")
    End Sub

    Private Sub Inbox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Inbox.MouseUp
        FireEvent("inbox")
    End Sub

    Private Sub Outbox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Outbox.MouseUp
        FireEvent("outbox")
    End Sub

    Private Sub SentItems_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles SentItems.MouseUp
        FireEvent("sentitems")
    End Sub

    Private Sub Unwantedmail_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
        FireEvent("unwantedmail")
    End Sub

  
End Class
